home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 252 / gemsrc / dialog.def < prev    next >
Encoding:
Modula Definition  |  1988-02-13  |  1.7 KB  |  54 lines
  1. DEFINITION MODULE Dialog;
  2.  
  3.    (* This module defines types and procedures for manipulating  *)
  4.    (* dialog boxes.  Note that information may be stored into or *)
  5.    (* retrieved from a dialog by invoking the routines contained *)
  6.    (* in module "Icon".                                          *)
  7.  
  8.  
  9.    IMPORT Screen;
  10.  
  11.  
  12.    CONST NoEditableField = -1;
  13.  
  14.       (* A dialog oftens contains information that may not be changed *)
  15.       (* by the user.  This constant is used to inform GEM that the   *)
  16.       (* dialog may not be modified.                                  *)
  17.  
  18.  
  19.    PROCEDURE Display ( DialogNumber   : INTEGER;
  20.                        GrowFromBox    : Screen.Box;
  21.                        EditField      : INTEGER ) : INTEGER;
  22.  
  23.       (* Display a dialog box and monitor the user's actions.  If the *)
  24.       (* dialog does not contain information that may be changed by   *)
  25.       (* the user, the constant "NoEditableField" must be used as the *)
  26.       (* "EditField" parameter.  This routine completes once the user *)
  27.       (* selects an exit object, which is returned to the caller.     *)
  28.  
  29.  
  30.    PROCEDURE GetText ( DialogNumber : INTEGER;
  31.                        FieldNumber  : INTEGER;
  32.                        VAR Value    : ARRAY OF CHAR );
  33.  
  34.  
  35.    PROCEDURE PutText ( DialogNumber : INTEGER;
  36.                        FieldNumber  : INTEGER;
  37.                       Value        : ARRAY OF CHAR );
  38.  
  39.  
  40.    PROCEDURE Select ( DialogNumber : INTEGER;
  41.                       FieldNumber  : INTEGER );
  42.  
  43.  
  44.    PROCEDURE Deselect ( DialogNumber : INTEGER;
  45.                         FieldNumber  : INTEGER );
  46.  
  47.  
  48.    PROCEDURE IsSelected ( DialogNumber : INTEGER;
  49.                           FieldNumber  : INTEGER ) : BOOLEAN;
  50.  
  51.  
  52. END Dialog.
  53.  
  54.